HPAVC/HPAVC CD-ROM.iso/LORD2B6.ZIP/BONE.REF

Text File | 1997-05-19 | 11KB | 526 lines

;Ref for the Big Bad BoneTown (tm)  (Go Jester!)

@#MAN1
;A stock message outline
@DO SAYBAR
`0Dad:  `2I finally did it.  I brought my boy to the Bonetown Arena!
@DO MOVEBACK

@#MAN2
;A stock message outline
@DO SAYBAR
`0Boy:  `2Are you one of the Arena Warriors?  Wow!
@DO MOVEBACK

@#BSIGN
;A stock message outline
@DO SAYBAR
`2You're on a boat!!!
@DO MOVEBACK


@#DEFEAT
;Losing at the Arena
@do `p02 is 5
@bitset `t12 7 1
@show
`r0`c  `r1`%  You lost  `r0

`2  The hulking Gladiator stands over you.  You can hear the crowd booing your
  defeat in the background.  Better luck tommorow...
`\`k
@drawmap
@update

@#RUN
;Running at the Arena
@bitset `t12 7 1
@show
`r0`c  `r1`%  Only one thing to do!  `r0

`2  You turn your back to your enemy and bolt.  You scramble over the Arena
  wall!

  `0"Coward, Coward!" `2the audience chants in unison.

  Crap.. Looks like you better not show your face around here again today...
`\`k
@drawmap
@update

@#WIN
;Winning at the Arena
@show
`r0`c  `r1`%  VICTORY IS YOURS THIS DAY  `r0

`2  The entire arena roars in approval as you behead poor `0`e`2.

  `2You have done well - dare you attempt another battle?
`\`k
@drawmap
@update


@#ARENA
;The battling arena in BoneTown.
@DO MOVEBACK
@busy
@label beat
@do `v01 is 1
@show
`r0`c  `r1`%  The Gladiator Arena  `r0

`2  The area is surrounded by plebeian onlookers who cheer as a fight proceeds
  in the middle.  You could've guessed the people of BoneTown would choose
  this kind of entertainment.  A man in dark robes who seems to be the
  organizer of it approaches you.

`0  "You look like a prosperous warrior, would you care to take a chance?"

@do write
`x`x
@CHOICE
Ask about the rules
Do Battle
Leave
@if response is 3 then do
  @begin
         @if bitcheck `t12 7 1 then do
           @begin
  @show
`\`\  `0"Haha! Go practice with your father, kid!"
`\  `$"But my dad is dead!" `2you cry, as a salty tear rolls down your cheek.

  You flee the laughing Arena.
`\`k
  @drawmap
  @update
  @closescript

           @end
  @show
`\`\  `0"We knew you were a coward the moment you arrived!"
`\`k
  @drawmap
  @update
  @closescript
  @end

@if response is 1 then do
        @begin
        @show
`\`\  `0"It's simple.  For 200 gold, you fight one of my random gladiators
  for the crowd.  If you win, you double the 200.  If not, you lose it.  You
  can battle as many times you want a day until you lose.  So what do you
  say?
`\`k
        @do goto beat
        @end


@if response is 2 then do
        @begin
        @if money < 200 then do
          @begin
        @show
`\`\  `0"You don't even have 200 gold?!  How on earth could you be a great
  arena warrior?!  Hahah!"

  `2Your face turns beet red.
`\`k
         @do goto beat
         @end

         @if bitcheck `t12 7 1 then do
           @begin
           @show
`\`\  `0"You have already been bested in the Arena once today!  The crowd
  would much rather see a winner, not someone like you!"

`k
           @do goto beat
           @end

        @do money - 200
        @do `p20 random 6 1
               @if `p20 is 1 then `s01 is Gladiator
               @if `p20 is 2 then `s01 is Big`xGladiator
               @if `p20 is 3 then `s01 is Fat`xGladiator
               @if `p20 is 4 then `s01 is Armored`xGladiator
               @if `p20 is 5 then `s01 is Death`xGladiator
               @if `p20 is 6 then `s01 is Nitro
        @show
`\`\  `2They agree to let you fight.

  You grip your `0s&weapon`2 tightly as you wait for your opponent.
`\`k  `0The robed man screams the name .`l .`l .`l .`l .`% `s01`0!

`k
@
;Glad Strength
        @do `p20 random 5 1
               @if `p20 is 1 then do
                @begin
                 @do `p21 is S&wep_num
                 @do `p21 + `p04
                 @do `p21 - 30
                @end

               @if `p20 is 2 then do
                @begin
                 @do `p21 is S&wep_num
                 @do `p21 + `p04
                 @do `p21 - 12
                @end

               @if `p20 is 3 then do
                @begin
                 @do `p21 is S&wep_num
                 @do `p21 + `p04
                @end

                @if `p20 is 4 then do
                @begin
                 @do `p21 is S&wep_num
                 @do `p21 + `p04
                 @do `p21 + 12
                @end

               @if `p20 is 5 then do
                @begin
                 @do `p21 is S&wep_num
                 @do `p21 + `p04
                 @do `p21 + 30
                @end
;Glad Defense
        @do `p20 random 3 1
               @if `p20 is 1 then do
                 @begin
                  @do `p22 is S&arm_num
                  @do `p22 + `p05
                  @do `p22 - 20
                 @end

               @if `p20 is 2 then do
                @begin
                 @do `p22 is S&arm_num
                 @do `p22 + `p05
                @end

               @if `p20 is 3 then do
                @begin
                 @do `p22 is S&arm_num
                 @do `p22 + `p05
                 @do `p22 + 20
                @end
;Glad H.p.

        @do `p20 random 3 1
               @if `p20 is 1 then do
                @begin
                 @do `p23 is `p03
                 @do `p23 - 10
                 @end

               @if `p20 is 2 then do
                @begin
                 @do `p23 is `p03
                @end

                @if `p20 is 3 then do
                 @begin
                  @do `p23 is `p03
                  @do `p23 + 10
                 @end

        @do goto monster1

;Here's the gladiator
@#monster1
@fight
;name
`s01
;string said when you see him
`0"You get one chance, don't blow it!" `2taunts the Gladiator.
;power move kill string
You carefully step over the lifeless Gladiator's body.. hehe!
;sex - 1 is male, 2 is female, 3 is it
1
;weapon and strength for the weapon, up to 5
hits with his club|`p21
slams you with his shield|`p21
hits you with a big rock|`p21
brawls with you|`p21
NONE|NONE
;defense
`p22
;gold reward
400
;experience
20
;hit points
`p23
;if win: ref file|name or NONE
BONE.REF|WIN
;if lose: ref file|name or NONE
BONE.REF|DEFEAT
;if runs: ref file|name or NONE
BONE.REF|RUN
;End of Gladiator stuff
        @end
;@drawmap
;@update

@#PAWN
;The Pawnshop
@do `v01 is 1
@do moveback
@busy
@show
`r0`c  `r1`%  Selena's Pawn Shop `r0

`2  A beautifully curved specimen stands before you - which makes what comes
  out of her mouth next all the more cute.

  `2`0"And what can I do for today, you scagfaced Belar sucking thief?"

@do write
`x`x
@CHOICE
Have some things to sell
Conduct business with Selena
Leave
@if response is 1 then do
  @begin
  @run junkman2 in porttown.ref
  @end
@if response is 2 then do
  @begin
  @do `p20 is 4
  @run getquest in quest.ref
  @end

@drawmap
@update

@#heal
@offmap
@do moveback
@do `v01 is 1
@show
`r0`c  `r1  BoneTown Healing  `r0

`2  B.A. looks you over for wounds.

@do write
`x`x
@if `p02 < `p03 then do
 @begin
@do `p20 is `p03
@do `p20 - `p02
@do `p20 / 2


 @show
`0"You don't look so good, fool!  What'd ya get yourself into anyway?
  Aww, never mind crazy fool.  I'll fix ya up for `$`p20`0 gold, k?"

@do write
`x`x
@choice
Heal yourself for `$$`p20`%. (you have `$$&money`%)
Limp on out.
@show
`\
@if response is 1 then do begin
 @begin
 @if money < `p20 then do
  @begin
  @show
  `0"Sorry fool, we don't do no free work here."

 @do write
`x`x
 @choice
Hey Fool!  How am I supposed to make money when I can barely walk?
Man, how 'bout a little compassion for once in your life old man!
How 'bout some of your 'special' pills then?
Yes sir.
@show


@if response is 4 then do
 @begin
 @show
  `0"You Crazy, now get going with you!" `2 he laughs.

`k
 @end

@if response is 1 then do
 @begin
 @show
  `0"Hey Fool, be a big s&man for once in your life!"`2 he yells.

`k
 @end
@if response is 2 then do
 @begin
 @show
  `0"I cannot respect a fool that don't work," `2He informs you.

`k
 @end
@if response is 3 then do
 @begin
 @do `p02 = 1
 @show
  `0"Sure.  Take uh.. these." `2 he snickers.

  `2You gulp down the weird black pills

  `4HIT POINTS GO DOWN TO 1.

`k
 @end

  @drawmap
  @update
  @closescript
  @end

@do money - `p20
@do `p21 = `p03
@do `p21 - `p02
@do `p02 = `p03
@show
  `2You feel much better as `0`p21`2 hitpoints are restored.

`k
  @end
  @drawmap
  @update
  @closescript
@end

@show
`0"You have no ailments, come back later fool!  I got other crazys to heal.
  Nothing but fighting in this town I tell ya," `2he laughs.

`k
@drawmap
@update

@#inn
;For the wood lodge in BoneTown
@do `v01 is 1
@offmap
@do moveback
@show
`r0`c  `%`r1  THE WOODLOG INN  `r0

  `2This place looks a little campy - slack jaws & harlots wander around
  the rooms aimlessly.

  A old man with only a few teeth smiles at you.

  You are holding `$$&money`2.

@do write
`x`x
@choice
Get a room (`$$50`%)
Leave
@if response is 1 then do
  @begin
  @if money < 50 then do
    @begin
    @show
`\`\`2  You are short on cash.  Pretty sad when you can't even afford to stay
  in BoneTown!

`k
    @drawmap
    @update
    @closescript
    @end
   @show
`\`\  `2You give the dirty old man the cash.  He leads you inside...
`\`k
  ;has enough money
   @do money - 50
   @do x is 21
   @do y is 13
   @do map is 1206
   @loadmap 1206
   @drawmap
   @update
   @closescript
  @end

@drawmap
@update

@#TOILET
;Toilet inside the Inn
@DO SAYBAR
`2Great, the only toilet here and it doesn't work!  You'll have to hold it.
@DO MOVEBACK

@#NOTDONE
;A stock notdone message for the unfinished stuff
@DO SAYBAR
`2Not done yet, check out next version!
@DO MOVEBACK

@#FUN
;The BoneTown fun house :)
@do `v01 is 1
@offmap
@do moveback
@show
`r0`c  `%`r1  The FunHouse  `r0

  `2This place looks ... well great!!  You see gambling games, and lot's of
  attractive individuals back there.  A man with plush purple hat with a
  feather in it smiles at you.
  `0"Hey s&man how ya doing?  Listen, if ya wanna get in here, it's gonna
  be 100 tip, that cool with you?"

  `2You are holding `$$&money`2.

@do write
`x`x
@choice
>&money 99 Pay the " admission" (`$$100`%)
Leave
@if response is 1 then do
  @begin
  @do money - 100
  @show
`\`\  `0"Good choice my strong s&man, you wont be dissapointed."
`\`k
   @do x is 40
   @do y is 15
   @do map is 1206
   @loadmap 1206
   @drawmap
   @update
   @closescript
  @end
@drawmap
@update

@#BOUNCER
;The guy outside the casino
@DO SAYBAR
`2You gotta be 21 to go in there buddy!
@DO MOVEBACK

@#RUIN
;Message for seeing the arena
@DO SAYBAR
`2Looks like the ruins of something,  but the sign says "Arena".

@#nomore